home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 23 / 023.d81 / trig calc (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  8KB  |  299 lines
  1. 5 gosub60000
  2. 10 print"[147]":poke53280,6:poke53281,15
  3. 20 printtab(240)tab(40)"                                  [146]"
  4. 30 print"       trigonometric computations [146]"
  5. 40 print"                                  [146]"
  6. 50 printtab(243)"  how many decimal places? (1-4)  ":wait198,1:geto0$:o0=val(o0$)
  7. 60 poke198,0:ifo0<1oro0>4thenprint"[145][145][145][145][145][145][145][145]":goto50
  8. 70 s$="s -":ifo0=1thens$=" -"
  9. 80 print"[145] answers will be rounded to"o0"place"s$::fori=1to2000:next
  10. 90 ry=10^o0:deffnrn(q)=int(q*ry+.5)/ry
  11. 100 x=0:z=0:b=0:a=0:c=0:poke53280,11:poke53281,15:print"[144]"
  12. 110 print"[147]"
  13. 120 print"               x
  14. 130 [153]"               sgn(NULL)
  15. 140 print"               [180] [205]
  16. 150 [153]"               sgn  (NULL)
  17. 160 print"              b[180]   [205]a
  18. 170 [153]"               sgn    (NULL)
  19. 180 print"               [180]     [205]
  20. 190 [153]"               sgn      (NULL)
  21. 200 print"             [144]90[183][183][183][183][183][183][183][183]z
  22. 210 [153]"                  c
  23. 220 print"       [146]                            [146][144]"
  24. 230 print"       [146]                            [146][144]"
  25. 240 print"[145][145]       [146]  select your two 'knowns' [146] [146][144]"
  26. 250 k$="":printtab(96)"[192]> [191][191] <[192][157][157][157][157][157]";:poke204,0
  27. 260 getkk$:printkk$;:k$=k$+kk$:iflen(k$)<2then260
  28. 270 poke204,1:print"[145]"
  29. 280 ifk$="bc"ork$="cb"then960
  30. 290 ifk$="ab"ork$="ba"then1110
  31. 300 ifk$="ac"ork$="ca"then1280
  32. 310 ifk$="ax"ork$="xa"then1450
  33. 320 ifk$="az"ork$="za"then1650
  34. 330 ifk$="bx"ork$="xb"then1850
  35. 340 ifk$="bz"ork$="zb"then2050
  36. 350 ifk$="cx"ork$="xc"then2240
  37. 360 ifk$="cz"ork$="zc"then2410
  38. 370 ifk$="xz"ork$="zx"then2590
  39. 380 ifk$="34"thenload"hello connect",8
  40. 390 k$="":print"[145][145][145]":goto 110
  41. 400 print"[147]"
  42. 410 print""
  43. 420 print"                [180][205]
  44. 430 [153]"                sgn (NULL)
  45. 440 print"                [180]  [205]
  46. 450 [153]"                sgn   (NULL)
  47. 460 print"                [180]    [205]
  48. 470 [153]"                sgn     (NULL)
  49. 480 print"                [180]      [205]
  50. 490 [153]"              stop90usrusrusrusrusrusrusrusr"
  51. 500 [153]"
  52. 510 print"               [145][145][145][145][145][145][145][145][145][145]";x
  53. 520 printtab(24)"";right$(str$(z),2)
  54. 530 printtab(21)"[145][145][145][145][145]";a
  55. 540 printtab(13)"[145]";b
  56. 550 printtab(18)"";c
  57. 560 printtab(211)"                 [146][144]"
  58. 570 printtab(11)" [146] correct (y/n) [146] [146][144]"
  59. 580 printtab(11)"                 [146][144]"
  60. 590 geta$:ifa$=""then590
  61. 600 ifa$="y"thenreturn
  62. 610 goto100
  63. 620 rem - angle express in radians =        angle/57.2958
  64. 630 aa=a
  65. 640 ab=b
  66. 650 ac=c
  67. 660 aa=sqr((b*b)+(c*c)):aa=fnrn(aa)
  68. 670 ab=sqr((a*a)-(c*c)):ab=fnrn(ab)
  69. 680 ac=sqr((a*a)-(b*b)):ac=fnrn(ac)
  70. 690 print"[147]"
  71. 700 print"                x
  72. 710 [153]"                sgn(NULL)
  73. 720 print"                [180] [205]
  74. 730 [153]"                sgn  (NULL)
  75. 740 print"               b[180]   [205]a
  76. 750 [153]"                sgn    (NULL)
  77. 760 print"                [180]     [205]
  78. 770 [153]"                sgn      (NULL)
  79. 780 print"              [144]90[183][183][183][183][183][183][183][183]z
  80. 790 [153]"                   cstop"
  81. 800 [153]"    sine angle  'x' =";xs
  82. 810 [153]"    cos  angle  'x' =";xc
  83. 820 [153]"       angle wait   'x' =";xx"degrees"
  84. 830 [153]"    stopsine angle  'z' =";zs
  85. 840 [153]"    cos  angle  'z' =";zc
  86. 850 [153]"    tan  angle  'z' =";zt
  87. 860 [153]"       angle wait   'z' =";zz "degrees"
  88. 870 [153]"    stoplength side 'a' =";aa
  89. 880 [153]"    length side 'b' =";ab
  90. 890 [153]"    length side 'c' =";ac
  91. 900 [153][163]43)"verify another(y/n) : change decimal(.) "
  92. 910 [161]a$:[139]a$[178]""[167]910
  93. 920 [139]a$[178]"."[167][153]"onononononononon":[137]50
  94. 930 [139]a$[178]"y"[167]100
  95. 940 [139]a$[178]"n"[167][147]"hello connect",8
  96. 950 [137]910
  97. 960 [133]" side b =";b$:b[178][197](b$):[139]b[178]0[167][153]"onononon":[137]960
  98. 970 [133]" side c =";c$:c[178][197](c$):[139]c[178]0[167][153]"ononon":[137]970
  99. 980 [141]400
  100. 990 aa[178][186]((b[172]b)[170](c[172]c)):aa[178][165]rn(aa)
  101. 995 [139] d0 [167] [153]"loadwow! division by zero error!!!":[129]t[178]1[164]1800:[130]:[138]10
  102. 997 [139] aa[178]0 [167] d0[178][171]1:[137]995
  103. 998 [139] c[178]0[167] d0[178][171]1:[137]995
  104. 1000 ab[178]b:ac[178]c
  105. 1010 zs[178]b[173]aa:zs[178][165]rn(zs)
  106. 1020 xs[178]c[173]aa:xs[178][165]rn(xs)
  107. 1030 zc[178]c[173]aa:zc[178][165]rn(zc)
  108. 1040 zt[178]b[173]c:zt[178][165]rn(zt)
  109. 1050 xc[178]b[173]aa:xc[178][165]rn(xc)
  110. 1060 zz[178]([193](zt))[172]57.2958:zz[178][165]rn(zz)
  111. 1070 xx[178]90[171]zz:xx[178][165]rn(xx)
  112. 1080 [143] - radians = 57.2958
  113. 1090 [143] - angle express in radians =        angle/57.2958
  114. 1100 [137]690
  115. 1110 [133]" side a =";a$:a[178][197](a$):[139]a[178]0[167][153]"onononon":[137]1110
  116. 1120 [133]" side b =";b$:b[178][197](b$):[139]b[178]0[167][153]"ononon":[137]1120
  117. 1130 [139]b[178][177]a[167][153][163]11)"on      onon":[137]1120
  118. 1140 [141]400
  119. 1150 ac[178][186]((a[172]a)[171](b[172]b)):ac[178][165]rn(ac)
  120. 1160 aa[178]a
  121. 1170 ab[178]b
  122. 1175 [139]a[178]0[167]d0[178][171]1:[137]995
  123. 1176 [139]ac[178]0[167]d0[178][171]1:[137]995
  124. 1180 zs[178]b[173]a:zs[178][165]rn(zs)
  125. 1190 xs[178]ac[173]a:xs[178][165]rn(xs)
  126. 1200 zc[178]ac[173]a:zc[178][165]rn(zc)
  127. 1210 zt[178]b[173]ac:zt[178][165]rn(zt)
  128. 1220 xc[178]b[173]a:xc[178][165]rn(xc)
  129. 1230 zz[178]([193](zt))[172]57.2958:zz[178][165]rn(zz)
  130. 1232 [139] zs[178]0 [167]d0[178][171]1:[137]995
  131. 1234 [139] aa[178]0 [167]d0[178][171]1:[137]995
  132. 1235 [139] ac[178]0 [167]d0[178][171]1:[137]995
  133. 1240 xx[178]90[171]zz:xx[178][165]rn(xx)
  134. 1250 [143] - radians = 57.2958
  135. 1260 [143] - angle express in radians =        angle/57.2958
  136. 1270 [137]690
  137. 1280 [133]" side a =";a$:a[178][197](a$):[139]a[178]0[167][153]"onononon":[137]1280
  138. 1290 [133]" side c =";c$:c[178][197](c$):[139]c[178]0[167][153]"ononon":[137]1290
  139. 1300 [139]c[178][177]a[167][153][163]11)"on      onon":[137]1290
  140. 1310 [141]400
  141. 1320 ab[178][186]((a[172]a)[171](c[172]c)):ab[178][165]rn(ab)
  142. 1330 aa[178]a
  143. 1340 ac[178]c
  144. 1345 [139] a[178]0 [167] d0[178][171]1:[137]995
  145. 1347 [139] c[178]0 [167] d0[178][171]1:[137]995
  146. 1350 zs[178]ab[173]a:zs[178][165]rn(zs)
  147. 1360 xs[178]c[173]a:xs[178][165]rn(xs)
  148. 1370 zc[178]c[173]a:zc[178][165]rn(zc)
  149. 1380 zt[178]ab[173]c:zt[178][165]rn(zt)
  150. 1390 xc[178]ab[173]a:xc[178][165]rn(xc)
  151. 1400 zz[178]([193](zt))[172]57.2958:zz[178][165]rn(zz)
  152. 1410 xx[178]90[171]zz:xx[178][165]rn(xx)
  153. 1420 [143] - radians = 57.2958
  154. 1430 [143] - angle express in radians =        angle/57.2958
  155. 1440 [137]690
  156. 1450 [133]" side a =";a$:a[178][197](a$):[139]a[178]0[167][153]"onononon":[137]1450
  157. 1460 [133]" angle x =";x$:x[178][197](x$):[139]x[178]0[167][153]"ononon":[137]1460
  158. 1470 [139]x[177]89[167][153][163]12)"on      onon":[137]1460
  159. 1480 [141]400
  160. 1490 y[178]90
  161. 1500 xx[178]x
  162. 1510 zz[178]y[171]x:zz[178][165]rn(zz)
  163. 1520 xc[178][190](x[173]57.2958):xc[178][165]rn(xc)
  164. 1530 b[178]a[172]xc:b[178][165]rn(b)
  165. 1540 xs[178][191](x[173]57.2958):xs[178][165]rn(xs)
  166. 1550 ab[178]a[172]xc:ab[178][165]rn(ab)
  167. 1560 ac[178]a[172]xs:ac[178][165]rn(ac)
  168. 1570 z[178]y[171]x:z[178][165]rn(z)
  169. 1572 [139] a[178]0[167]d0[178][171]1:[137]995
  170. 1573 [139] ac[178]0[167]d0[178][171]1:[137]995
  171. 1580 zc[178]ac[173]a:zc[178][165]rn(zc)
  172. 1590 zt[178]ab[173]ac:zt[178][165]rn(zt)
  173. 1600 zs[178]ab[173]a:zs[178][165]rn(zs)
  174. 1610 aa[178]a
  175. 1620 [143] - radians = 57.2958
  176. 1630 [143] - angle express in radians =        angle/57.2958
  177. 1640 [137]690
  178. 1650 [133]" side a =";a$:a[178][197](a$):[139]a[178]0[167][153]"onononon":[137]1650
  179. 1660 [133]" angle z =";z$:z[178][197](z$):[139]z[178]0[167][153]"ononon":[137]1660
  180. 1670 [139]z[177]89[167][153][163]12)"on      onon":[137]1660
  181. 1680 [141]400
  182. 1690 y[178]90
  183. 1700 zz[178]z
  184. 1710 aa[178]a
  185. 1720 zc[178][190](z[173]57.2958):zc[178][165]rn(zc)
  186. 1730 ac[178]a[172]zc:ac[178][165]rn(ac)
  187. 1740 zs[178][191](z[173]57.2958):zs[178][165]rn(zs)
  188. 1750 ab[178]a[172]zc:ab[178][165]rn(ab)
  189. 1760 ac[178]a[172]zs:ac[178][165]rn(ac)
  190. 1770 x[178]y[171]z:x[178][165]rn(x)
  191. 1772 [139] ac[178]0 [167] d0[178][171]1:[137]995
  192. 1773 [139] a[178]0 [167] d0[178][171]1:[137]995
  193. 1780 zt[178]ab[173]ac:zt[178][165]rn(zt)
  194. 1790 xs[178]ab[173]a:xs[178][165]rn(xs)
  195. 1800 xx[17